home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / C⁄C++ / Xconq 7.0d37 / source / test / cond.g < prev    next >
Encoding:
Text File  |  1994-11-03  |  516 b   |  55 lines  |  [TEXT/R*ch]
  1. ;;; Start with the simple game in the library.
  2.  
  3. ;;; (should add a variant that controls the condition)
  4.  
  5. (include "simple")
  6.  
  7. (if 1 x)
  8.  
  9. (unit-type dragon)
  10.  
  11. (end-if x)
  12.  
  13. (area 20 20)
  14.  
  15. (area (terrain (by-name "+" plains)
  16.   "20+"
  17.   "20+"
  18.   "20+"
  19.   "20+"
  20.   "20+"
  21.   "20+"
  22.   "20+"
  23.   "20+"
  24.   "20+"
  25.   "20+"
  26.   "20+"
  27.   "20+"
  28.   "20+"
  29.   "20+"
  30.   "20+"
  31.   "20+"
  32.   "20+"
  33.   "20+"
  34.   "20+"
  35.   "20+"
  36. ))
  37.  
  38. (set see-all true)
  39.  
  40. (side 1)
  41.  
  42. (human 10 10 1)
  43.  
  44. (if 0 xxx)
  45.  
  46. (human 11 11 1)
  47.  
  48. (else xxx)
  49.  
  50. (dragon 11 11 1)
  51.  
  52. (end-if xxx)
  53.  
  54. (human 11 12 1)
  55.